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RRR RRR 
RRR RRR 
RRR RRR 
RR RRR 
RRR RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR =RRR 

RRR = RRR 

RRR = RRR 

RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 


AHA tt tt Ht tt SH 
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Ogre eee Nene ey Beans aamerem wi 


| **FILE**1D**BASFRAME 
BBBBBBBB AAAAAA SSSSSSSS) -FFFFFFFFFF 
BBBBBBBB AAAAAA SSSSSSSS_  FFFFFFFFFF 
BB BB AA AA SS FF 
BB BB AA AA SS FF 
BB BB AA AA SS FF 
BB AA AA SS FF 
BBBBBBBB AA Ab SSSSSS FFFFFFFF 
BBBBBBBB AA AA SSSSSS FFFFFFFF 
BB BB AAAAAAAAAA SS FF 
BB BB AAAAAAAAAA SS FF 
BB BB AA AA ss «FF 
8B BB AA aa SS FF 
BBBBBBBB AB AA SSSSSSSS FF 
BBBBBBBB AA AA SSSSSSSS FF 
RRRRRRRR EEEEEEEEEE QQ0000 
RRRRRRRR EEEEEEEEEE QQQ0aQ 
RR RR EE QQ 
RR RR EE QQ QQ 
RR RR EE QQ QQ 
RR RR EE QQ QQ 
RRRRRRRR EEEEEEEE QQ QQ 
RRRRRRRR EEEEEEEE QQ Q 
RR RR EE QQ QQ QQ = 
RR RR EE QQ QQ QQ 
RR RR EE Q Q 
RR RR EE QQ QQ 
RR RR EEEEEEEEEE QaQQg QQ 
RR RR EEEEEEEEEE QQ0g QQ 


AAAAAA 
AAAAAA 
Ab aa 
AA AA 
AA AA 
BA AA 
AA Aa 
a AA 
AAAAAAAAAA 
AAAAAAAAAA 
BA AA 
AA AA 
AA AA 
BA Aa 


MMMmMMmMnmMmMmmMmmmnmncrny 
MMMMmMmMmMmmmmmmnrmcrn 


coo 
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| BASF RAME .REQ;1 
XN 
'¢ 
! This file, BASFRAME.REQ, defines the frame control data for 
: a BASIC procedure. Edit: PLL1010 


eee eee R EERE RAE RAHA RARER AREA AE EAA EAA AR EKER HERE TE eee Hee 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE oe MAY BE USED AND coriee 
ONLY IN ACCORDANCE WITH E R E AN THE 
INCLUSION OF THE ABOVE Spt NOTICE. "OTHER 

ROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 


COPIES THEREOF MAY a BE P 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


TRANSFERRED. 
THE a. ae IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CoRPORATiOn. BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR ee, OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 


® 
® 
& 
® 
* 
® 
* 
® 
® 
® 
® 
* 
® 
® 
® 
® 
® 
® 
® 
® 
® 
SSSELESSILISS ISTE STE ETT Terre Tec TTT TTT TTT TTI STATS TIS TITTLTeT TL Tit iiit ff 
Edit History: 


Initial coding from BP2VAXDGC. 
- Make version 1 


JBS 19-NOV-78 

to conform to version numbering standard. 
(The conversion from BAS$ prefixes to L prefixes will 
be in a future revision.) JBS 27-NOV- 


1 

i+ 

i 

i 

i 

i 

i 

! 

1-002 - Soeyery from BAS to BSF prefixes, and add BSFSA_BASE_R9. 

! 1-003 - Add BSFSK LENE COMAJ, BSFSK_LENFCDDEF and BSFSK_LENFCDDFS. 
: JBS 09-FEB-1979 

! 1-004 = Add BSFSV_FCD_IV. JBS 11-SEP-1979 

1-005 - Remove Ce Part statement, for the new BLISS compiler. 

! 1-006 - Add macro to pick up scale. 29-Oct-79 

! 1-007 = Add goP EA BTA notice. SBL 11-Mar-1980 

!' 1-008 - nes Be A_RTA_DESC and BSFSM_ FCD OV. PLL 12-May-1982 

' 1-009 - ND. PLL 10-JGn-1982 

! 1-010 - change $s ~ gar sa. RTA_DESC tone overlapping BSFSA_USER_HAND). 
: PLL 10-Aug-1198 

FIELD 


BSFSFCD = 
SET 


i The following appear only in major frames. 


er terete 


| BASFRAME .REQ;1 


‘¢ 


BSFSALRTALDESC = 
FSA_BA 
BSFSA-CUR.DATA 
BSF SA-END— DATA = 
BSFSB_ “VPA 
BSF$B_SCA-V 


BSF $D “SCALES DOU = 


> 734 "6 iB peeve ee, 


© abe, 6 


Ee 
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Z The following are also in DEF and DEF* frames 


BSFSA_INIT_ARG = 
BSFSL_INITREL = 
BSFSA_STR_BESC = 


=39- 0: he 0), 
Ei: Bw: 


* SBPVAL: 03; 


ptr to run-time array Secs 
(never accessed from FP) 
first byte of code 

current byte of data text 
last arte + 1 of data text 
scale for packed, to = 
scale for double, to -6 
scale for double, 1 to 10**6 


pointer to INIT ar | hin 
relocation for INI list 
dynamic string descrip ors 


'¢ 
7 The following are also im GOSUB, CONDITION HANDLING and IOL frames 


'¢ 


- The following are also in non-BASIC frames. 


'¢ 


BSF SA. BASE 
SFSA_MARK™ = et. 


BSFSA_HANDLER = 
AP 


E = 
BSFSA_SAVED_FP = 
BSESA. SAVED-PC = 


Fe 8 9° tt 


EBPVAL, 04. 
“8. 25 oe 


+ SSPVALS ‘OS, 62. 


O 0% gta £85 


q 12, 6, TOBPVAL 05, 
16, 0, <BPVAL. 5 


i  Datine the frame type codes. 


LITERA 


BSF SK PROC Ain = 1, 


Length of FCD 

frame type, see below 

frame flags, see below 
info for frame 

R9 for this procedure 

R10 for this procedure 
R11 for this procedure 
SP for this procedure 

last mark PC 


exception handler 
previous value of AP 
previous value of FP 


return address in previous frame 


main program 
subprogram 
external function 
DEF function 

DEF®* function 
GOSUB (subroutine) 
condition handler 
Immediate, On-Line 


te 
: Define the bits in the flags word. 


LITERAL 
BSFSM_FCD_LONG = 1°15, 


compiled with 32-bit integers 


* 


is pointed to by R11, but R1 
base of the frame so that the compiled code 
use byte offsets from R11 to address its 
Therefore, to address the frame 
eese new names. 
only 

are referenced by removing the offset first. 


The frame control data for the currently act iye 
1 is offset by 195 b 
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compiled with double floating 
procedure returns a string result 
spec tat ON ERROR initial processing 
! this procedure has IV set 

decimal overflow enabled if set 
decimal rounding if set 


major procedure 
ytes from the 
can more frequently 


ocal variables. 

f the major procedure we need 

© avoid a proliferation of names, we name below 
the fields we reference directly off of 


R1i1; the other fields 


FIELD 
BSF SHAJOR_FRANE = 

BSFSA_USER_HAND = (127, 0, XBPVAL, 0], ! user's error handling flag 
BSF SA_CODE = (131, 0, ZB8PVAL, 0], ! first byte of code 
BSFSA_CUR_BTA = ft Re° 0, ZBPVAL, 0], ! current byte of DATA text 
BSFSA_END_DTA = (139, 0, X%BPVAL ° ! Last byte + 1 of DATA text 

: BSFSB_SCA_V_PAC = 143,°0, 8 13, ' scale for packed, 0 to -6. 

: BSF$B_SCA_V_DOU = (144, 0, 8, 1], ! scale for double, 0 to -6. 

' BSF $D_SCACE- DOU 147, 0,.0, 0J, ' scale for double, 1 to 10**6 

BSFSALINIT_ARG = (155, 0, XBPVAL, 0], | pointer to INIT arg list 

: BSFSL_INIT REL = (159, 0, ZBPVAL, 1], ! relocation for INIT arg List 

' BSFSA_STR_BESC = 165, 0, ZBPVAL, 0], ! dynamic string descriptors 

: BSFSB_LEN_FCD = (167, 0, 8, 0) ' Length of FCD 

: BSFS$B"-PROC_CODE = 168,°0,'8 1 ! frame type. see above 

i BSFSW-FCD FLAGS = (169. 0. 16, 05, i frare flags, see below 
BSFSA_PROC_INFO = [171 ZBPVAL, 0), ! info for frame, see BSFSA_PROC_ID 

: SFSA_BASE_R9 = (175 6, fePvaL, 62 ! R9 for this procedure 

i BSFSA~BASE_R10 = £179. 6, x8PVAL, 05. i‘ &10 for this procedure 

: SFSA_BASE_R11 = (183, 0, ZBPVAL, 0J, |! R11 for this procedure 

: BSFSA_BASE_SP = (187, 0, Z%BPVA J, ! SP for this procedure 

i BSFSA-MARK~= (191, 0. XBPVAL, 05, Last mark PC 
BSF SFRARE_BASE = £195. 0, 0.°0 ! base of major frame 

'¢ 

! The minor frame is arranged est forently because the offset to 

! R10 is different. However, the only offset we use in the 

! minor frame is BSFSA_USER_HAND, so we can sinply define 

: BSFSMINOR_FRAME as being the same as BSFSMAJOR_FRAME. 

CRO 
BSFSMINOR_FRAME = 
BSFSMAJOR_FRAME 2; 


'¢ 


i The following are the Lengths of the FCD part of the BASIC frame for 


! each of the program units. 


There are really only three lengths, but 
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! we use separate names for many of them to improve the internal 


; documentation. 

LITERAL 
BSFSK_LENFCDMAJ = i ! Length of a major frame FCD 
BSFSK-LENFCDMAJ2 = 72, i Length of V2 major frame FCD 
BSFSK_LENFCODEF = 44, ' Length of a DEF ig mite FCD 
BSFSK_LENFCDDFS = 44, ! Length of a DEF* function FCD 
BSFSK_LENFCOGSB = 32, ! Length of a GOSUB frame FCD 
BSFSK_LENFCDONE = 32, ! Length of an ON ERROR frame FCD 
BSFSK_LENFCDIOL = 32; ! Length of an IOL frame FCD 


'¢ 

! This macro gets the scaie factor from the frame of the caller if the caller 
: was a BASIC frame. This macro is used in the BASIC string routines which 
do string to numeric conversions and therefore need to know the scale factor 


MACRO 
SBASSSCALE = 
BEGIN 
EXTERNAL ROUTINE 
BASSSSCALE_L_R1 : BASSSCALE_JSB; 


BUILTIN FP; 
LOCAL FMP : REF BLOCK CO, BYTE) FIELD (BSFSFCD); ! our frame 


FMP = FP; 
BASSSSCALE_L_R1 (.FMP CBSFSA_SAVED_FP)) 


End of file BASFRAME.REQ 
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